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I .  INTRODUCTION 
There  have  been  various  studies  contrasting  Navy  officer 
graduate  degrees  and  subsequent  assignments.  In  order  to 
determine  the  cost  effectiveness  of  providing  Naval  officers 
with  advanced  degrees,  there  is  a  need  to  provide  a  tool  for 
tracking  their  career  paths  after  graduation  from  government 
sponsored  graduate  education  (or  Naval  Postgraduate  School) . 
This  menu-driven  prototype  application  was  developed  to 
fulfill  that  requirement.  By  providing  a  data  base  that  is 
easily  maintainable  and  readily  accessible  for  updating  billet 
information,  trends  in  the  utilization  of  officers  having 
government  sponsored  graduate  degrees  can  be  easily  viewed 
through  the  reporting  feature. 

A.   REVIEW  OF  CURRENT  PROCESS 

In  the  face  of  downsizing  U.S.  military  forces,  the 
importance  of  personnel  utilization  becomes  more  critical. 
The  current  method  for  reassignment  is  determined  mainly 
between  the  detailer  and  the  officer.  Moreover,  the  Navy 
officer  is  in  a  unique  position  in  that  the  officer  generally 
is  required  to  follow  shore  duty  (Naval  Postgraduate  School) 
with  sea  duty.  The  officer  is  interested  in  checking  off  the 
requirements  that  the  promotion  board  will  be  reviewing  and 
not  concerned  with  fulfilling  a  payback  tour  or  pay  back 


billet.  The  detailer  has  limited  payback  billets  opened 
concurrently  with  the  rotation  cycle  of  the  NPS  graduates  and 
is  concerned  with  filling  positions  rather  then  payback 
requirements.  There  are  specific  guidelines  for  filling 
degree-related  billets  but  no  current  method  for  applying 
these  guidelines.  Moreover,  the  activity  for  educating  Navy 
officers  and  the  activity  for  assigning  them  are  two  distinct 
commands.  At  best,  a  system  for  tracking  NPS  Navy  officer 
graduates  will  provide  the  necessary  data  to  analyze  current 
billet  assignments. 

B.   PURPOSE 

Initially,  three  questions  were  to  be  addressed  in  this 
study : 

1 .   What  cost  effectiveness  can  be  realized  by  the  Navy  in 

providing  advanced  degrees  to  their  Navy  officers? 
2  .  What  measures  are  currently  employed  in  placing  graduate 

Navy  officers  in  applicable  billets? 
3.   What  career  trends  are  reflective  of  the  Navy  officer 
following  graduation  at  NPS? 
There  have  been  several  papers  written  regarding  cost 
effectiveness  of  advanced  degrees  for  Navy  officers  which  tend 
to  indicate  the  subjectivity  required  to  make  such  an 
assessment.   For  further  review,  see  references  2  and  3.   As 
stated  previously,  there  is  no  unified  process  for  placing 
graduate  students.   Basically  what  is  available  and  what  is 


optimal  in  terms  of  career  advancement  are  the  two  influencing 
factors .  This  would  require  a  process  change  which  is  not 
within  the  scope  of  this  paper  (instead  of  shore  to  sea; 
institute  NPS  (shore)  to  payback  (shore)  to  sea).  Thus,  this 
paper  focused  on  the  tracking  of  NPS  Navy  officers.  This 
prototype  addresses  the  third  question:  where  do  the 
graduates  go?  By  looking  at  past  trends  and  developing  a 
system  to  track  current  NPS  graduates,  future  assignments  may 
be  more  efficiently  managed. 


II.   PROJECT  REVIEW 

There  is  no  formal  system  analysis  and  design  methodology 
when  developing  a  system  using  a  fourth  generation  language 
(FOCUS).  FOCUS  is  basically  a  data  base  maintenance  tool  and 
report  generator.  Three  phases  are  required  to  develop  a 
prototype.  They  consist  of  (1)  the  requirements  review,  (2) 
data  base  design,  and(3)  identifying  report  requirements. 
Through  an  iterative  process,  the  system  is  developed, 
analyzed  and  modified  until  requirements  have  been  satisfied 
(the  requirements  may  be  modified  as  the  process  continues  and 
actual  application  is  realized) . 

A.   REQUIREMENTS  REVIEW 

The  hardware  and  software  selection  was  based  on  the  size 
of  the  data  and  availability  to  end-users.  The  NPS  mainframe 
computer  (AMDAHL  6225)  was  selected  and  CMS  accounts  set  up  to 
utilize  existing  FOCUS  software.  The  initial  data  file  of 
Navy  records  and  data  elements  requires  approximately  4  0 
cylinders  of  storage.  Therefore,  a  subset  of  the  Officer  Navy 
Master  File  was  used.  Only  current  NPS  Navy  students  were 
selected  for  this  prototype  and  may  be  expanded  to  include  all 
Navy  officers  as  well  as  other  services  as  the  need  requires 
and  space  allows. 


The  Officer  Master  File  (OMF)  maintained  by  the  Defense 
Manpower  Data  Center  (DMDC)  was  identified  as  the  initial  data 
source.  These  files  provided  service  member  data,  billet 
data,  and  educational  data.  However,  the  billet  sequence  code 
required  to  identify  payback  billets  was  not  available. 
Further  investigation  led  to  a  request  by  the  Dean  of 
Instruction  to  Bureau  of  Personnel  (PERS  5G)  to  change  the 
Department  of  Defense  Instruction  (DODI)  to  include  this 
service  specific  data  to  the  DMDC  OMF.  This  information  was 
not  received  in  adequate  time  to  develope  this  prototype. 
Alternatively,  menu  screens  were  provided  to  input  a  sample  of 
officer  billet  data  into  the  base  OMF  extract.  Ten  officers 
having  graduated  the  last  two  quarters  across  the  12 
curriculums  were  requested  for  entry  into  the  database. 

A  UIC  file  from  DMDC  was  identified  and  initially 
requested.  However,  the  idea  of  grouping  UICs  (like  grouping 
zip  codes)  to  identify  "where  are  the  graduates  going"  was 
determined  to  be  too  broad  to  be  useful  in  this  analysis. 

The  billet  information  was  determined  to  be  classified  by 
Bureau  of  Personnel  (BUPERS)  and  therefore  not  included  in 
this  thesis.  A  billet  matrix,  used  for  assigning  personnel, 
was  provided  for  informational  purposes  only  and  not  within 
the  scope  of  developing  the  personnel  data  base. 

Ability  to  develop  user  reports  through  a  user  friendly 
application  was  requested.  A  simple  menu  driven  application 
is  provided  by  FOCUS  called  TABLETALK.   This  application  was 


provided  as  an  option  from  the  main  menu.  A  listing  of  the 
individual  records  in  the  data  base  and  a  summary  report  were 
provided  as  options . 


B.   DATA  BASE  DESIGN 

As  stated  previously,  the  OMF  prototype  was  developed  for 
the  personnel  data  base  (OMFX) .  Index  keys  were  included  for 
later  linking  to  the  UIC  file  and  the  Billet  file.  These 
three  structures  and  their  elements  are  summarized  in  Appendix 
A. 


Figure  1   Data  Base  Relationship 


1.   Personnel  Data  Base 

The  Personnel  Data  Base  referred  to  as  the  Officer 
Master  file  extract  (OMFX)  consists  of  four  major  components: 
(1)  the  service  segment;  (2)  the  individual  member  segment; 
(3)  the  billet  information  segment;  and  (4)  the  educational 
segment.  The  service  component  identifies  the  individual 
service  or  organization:  NV  -  Navy,  AR  -  Army,  AF  -  Air 
Force,  CG  -  Coast  Guard,  MR  -  Marines,  CIV  -  Civilian.  The 
Navy  is  the  main  focus  for  this  study.  The  next  segment, 
member  information,  contains  the  individual's  social  security 
number,  abbreviated  name,  and  name  as  indexes,  as  well  as 
additional  personnel  data  identified  in  the  master  file 
description.  The  billet  segment  indexes  the  current  unit 
identification  code  (UIC),  the  billet  sequence  code  (BSC),  and 
the  next  tour  of  duty  UIC  and  BSC.  This  segment  provides  data 
information  for  the  next  two  tours  of  duty  since  there  is  a 
requirement  to  complete  a  pay  back  tour  within  this  time 
period.  The  educational  segment  contains  the  officer's  last 
two  college  degree  programs  and  their  respective  information. 
This  was  restricted  by  the  initial  data  uploaded  from  the  OMF 
file.  In  order  to  accommodate  multiple  instances  of 
educational  data,  a  unique  identifier  would  need  to  be 
determined.  In  reviewing  the  actual  data,  a  unique  identifier 
could  not  be  determined.  Officers  may  attend  the  same  college 
and  graduate  in  two  separate  majors  as  well  as  graduate  the 
same  time  from  two  different  schools.   Although  this  is  the 


exception  and  not  the  rule,  there  would  be  lost  data  or 
incomplete  data  on  these  students  if  the  index  were  school  or 
date  of  completion. 

2.  Unit  Identification  Code  (UIC)  File 

The  UIC  file  would  be  used  to  store  data  from  the  UIC 
file  from  DMDC  providing  address  information  only.  This  would 
be  helpful  if  grouping  them  by  geographical  area  was 
determined  to  be  useful  for  tacking  NPS  Navy  students. 

3.  Billet  Sequence  Code  File 

The  BSC  would  identify  specific  billet  codes 
associated  with  a  UIC.  The  file  would  provide  subspecialty 
codes  associated  with  each  unique  UIC/BSC  in  order  to  identify 
and  link  potential  billets  by  subspecialties  granted  at  NPS. 


III.   PROJECT  DESIGN  AND  IMPLEMENTATION 

A.  OFFICER  MASTER  FILE  EXTRACT  (OMFX)  MODEL 

The  OMFX  model  was  designed  as  a  tool  to  provide  on-line 
access  for  end-user  reporting.  This  information  was 
normalized  into  three  separate  relational  data  bases.  The 
personnel  data  base  was  designed  to  expand  its  usage  to 
include  all  Navy  Officers  and  all  services.  An  account  was 
developed  to  provide  simultaneous  access,  updating  and 
reporting,  referred  to  as  a  SINK  machine  (synchronized  usage) . 
Multi-usage  was  implemented  for  entering  test  billet  data  from 
each  of  the  NPS  curriculum  offices.  It  appears  feasible  to 
implement  the  total  Navy  force  on  a  single  CMS  account  SINK 
machine.  The  Navy  OMF  fixed  file  required  40  cylinders  of 
storage.  A  program  account  of  approximately  50  cylinders  and 
a  users  account  of  4  cylinders  for  each  end  user  would  be 
required.  The  model  currently  consists  of  10  cylinders  of 
data  and  programs  and  one  4  cylinder  user  account  on  the  Naval 
Postgraduate  School  (NPS)  mainframe  computer. 

B.  PROGRAM  DEVELOPMENT 

Programs  developed  in  FOCUS  consists  of  a  main  menu  for 
uploading  data,  maintaining  the  data  base,  and  reporting. 
Since  this  was  a  prototype,  backup  procedures  and  backup 
programs  were  not  included.   However,  security  passwords  were 


implemented  due  to  the  sensitivity  of  the  data.  To  view  the 
system,  refer  to  the  Users  Guide  at  Appendix  C.  The  accounts 
currently  set  up  for  this  model  are  temporary  accounts. 
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IV.   CONCLUSIONS 

The  initial  requirements  of  providing  a  tool  to  track  NPS 
Navy  students  was  realized  in  the  OMFX  model.   The  adding  of 
billet  information  on  students  graduating  from  NPS  provides 
the  information  required  for  tracking  but  raises  the  issues  of 
entering  and  maintaining  the  data  as  well  as  keeping  duplicate 
information  at  their  respective  command  levels.   At  best, 
trends  can  be  reviewed  from  data  gathered  at  DMDC  providing 
that  the  billet  sequence  codes  can  be  included  in  their  OMF . 
The  timeliness  of  the  data  represents  a  signficiant  problem 
worthy  of  further  study.   The  OMF  is  a  fiscal  year  file. 
Requirements  to  have  the  data  quarterly  (to  include  BSC 
information)  impact  the  submitting  agency  and  the  supporting 
agency. 

When  it  is  determined  how  the  BSC  data  is  to  be  included 
(provided  through  the  OMF  file  or  through  inputing  by 
department  curricular  offices)  and  how  the  data  is  to  be 
maintained  current,  the  basic  concept  presented  to  track  these 
personnel  is  feasible.  The  OMFX  model  represents  a  successful 
implementation  of  a  data  base  with  multi-user  access . 
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APPENDIX  A:   DATA  DICTIONARY 


A.   TABLE  1:   DATA  FILES 

FILE  NAME/TYPE       DESCRIPTION 


OMF  DATA 
OMFX  FOCUS 
OMFUIC  FOCUS 
OMFBSC  FOCUS 


Transaction  input  personnel  attributes 
On-Line  personnel  data  base. 
Proposed  on-line  UIC  data  base. 
Proposed  on-line  BSC  data  base. 
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B.   TABLE  2: 

OMF  DATA  FII 

FIELD  NAME 

FORMAT 

RECNO 

15 

PR  GRADE 

Al 

PROMO_STAT 

A4 

YEAR_GRP 

A2 

YG_MYSTERY 

Al 

first 

DESIG 

A4 

UNKNOWN 

Al 

SEL  FY 

A2 

SEL  INCR 

Al 

SEL  PGM 

Al 

SEL  CURR 

A3 

SEL  STAT 

Al 

GROUP 

Al 

PRESELECT 

Al 

U  GRAD  VALID 

Al 

FY  SELECTED 

A2 

INCR  SELECT 

Al 

PGM  SELECT 

Al 

CURRIC  SEL 

A3 

SELECT  STAT 

Al 

J  YR  SEL 

Al 

J  STATUS 

Al 

J  COLLEG 

A2 

J  FYELIG 

A2 

S  YR  SEL 

Al 

S  STATUS 

Al 

S  COLLEG 

A2 

S  FYELIG 

A2 

PRI  DUTY 

A14 

BSC 

A5 

GRE  YEAR 

Al 

COLLEGE 1 

A10 

DURATIN1 

A2 

YRCOMP1 

A2 

SPONSR1 

Al 

LEVEL 1 

Al 

MAJOR 1 

A2 

SPEC1 

A2 

DESCRIPTION 

Record   number   extracted   from 

master. 

Permanent  Grade 

Officer's  selection/nonselection 

to  next  higher  grade. 

Year  of  precedence  for  officer 

promotion . 

Year-group  of  precedence   ( 1  = 

increment;  2  =  second) 

Code  to  categorize  officers  for 

accounting    and    statistical 

purposes . 

Filler 

Program  Status  Fiscal  Year 

Program  Status  FY  Increment 

Program  Status  Program 

Program  Status  Curriculum 

Program  Status  Selectee 

Education  History  Group  Code 

Preselect  Indicator 

Undergraduate  Valid 

Fiscal  Year  Selected 

FY  Increment  Selected 

Program  Selected 

Curriculum  Selected 

Selection  Status 

Junior  Year  Selected 

Junior  Year  Status 

Junior  Service  College 

Junior  FY  Eligible 

Senior  Year  Selected 

Senior  Status 

Senior  Service  College 

Senior  FY  Eligible 

Primary  Duty  (Billet  Title) 

Billet    Sequence    Code    (Not 

Provided) 

Graduate  Record  Exam  Year 

Current  College  (Monterey) 

Duration 

Year  Completed 

Sponsor  Code 

Level 

Major 

Specialty 
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C0LLEGE2 

A10 

DURATIN2 

A2 

YRC0MP2 

A2 

SP0NSR2 

Al 

LEVEL2 

Al 

MAJ0R2 

A2 

SPEC2 

A2 

SUBSPEC1 

A5 

SUBSPEC2 

A5 

SUBSPEC3 

A5 

SSUHIST 

A8 

NOB  CODE1 

A4 

NOB  STA  COD1 

A3 

NOB  CLASS 1 

A2 

NOB  KEY1 

Al 

NOB_CODE2 

A4 

NOBC  STA  COD2 

A3 

NOB  CLASS2 

A2 

NOB  KEY2 

Al 

NOB  CODE3 

A4 

NOB  STA  COD3 

A3 

NOB  CLASS3 

A2 

NOB  KEY3 

Al 

NOB  CODE4 

A4 

NOB  STA  COD4 

A3 

NOB  CLASS4 

A2 

NOB  KEY4 

Al 

NOB  CODE5 

A4 

NOB  STA  COD5 

A3 

NOB  CLASS5 

A2 

NOB  KEY5 

Al 

NOB  CODE6 

A4 

NOB  STA  COD6 

A3 

NOB  CLASS6 

A2 

NOB  KEY6 

Al 

APC 

A3 

DOD  LOSS  COD 

A3 

SEX 

Al 

NOBC  COUNTER 

A2 

PGU  UTIL 

Al 

ACTUAL_UIC 

A5 

PARENT  UIC 

A5 

UIC  XFERD  TO 

A5 

AQD^COUNTER 

A2 

Designator 

AQDDATE1 

A2 

AQD1 

A3 

AQDDATE2 

A2 

Previous  College 

Duration 

Year  Completed 

Sponsor  Code 

Level 

Major 

Specialty 

First  Subspecialty 

Second  Subspecialty 

Third  Subspecialty 

Subspecialty  Utilization  History 

Navy  Office  Billet  Code  (NOBC) 

NOBC  Station  Code 

NOBC  Class  (MOS) 

NOBC  Key 

(Group  2  thru  6  same  as  NOBC  group 

1) 


Not  Used 

DOD  LossCode 

Gender  (1  -  Male; 2  -  Female) 

NOBC  Counter 

Pay  Grade  Utilization  Code 

Actual  Unit  Identification  Code 

(UIC) 

Parent  UIC 

UIC  Transfered  To 

Additional  Qualification 

(AQD)    Counter 

AQD  Year 

AQD  Code 

(Group  2  thru  12  same  as  AQD  group 

1) 
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AQD2 

A3 

AQDDATE3 

A2 

AQD3 

A3 

AQDDATE4 

A2 

AQD4 

A3 

AQDDATE5 

A2 

AQD5 

A3 

AQDDATE6 

A2 

AQD6 

A3 

AQDDATE7 

A2 

AQD7 

A3 

AQDDATE8 

A2 

AQD8 

A3 

AQDDATE9 

A2 

AQD9 

A3 

AQDDATE10 

A2 

AQDIO 

A3 

AQDDATE11 

A2 

AQD11 

A3 

AQDDATE12 

A2 

AQD12 

A3 

SSN 

A9 

NAME 

A27 

YOS 

Al 

Social  Security  Number 
Last  First  Middle 
Years  of  Service 
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TABLE  3:   OMF  MASTER  FILE 


:le=omf, suffix=fix 

FIELD=RECNO 

,15, $ 

FIELD=PR  GRADE 

,ALIAS=PG     ,A1,$ 

FIELD=PROMO  STAT 

,A4,$ 

FIELD=YEAR  GRP 

,ALIAS=YG     ,A2,$ 

FIELD=YG  MYSTERY 

,A1,$ 

FIELD=DESIG 

,  A4 ,  $ 

FIELD=UNKNOWN 

,A1,$ 

FIELD=SEL  FY 

,A2,$ 

FIELD=SEL  INCR 

,A1,$ 

FIELD=SEL  PGM 

,A1,$ 

FIELD=SEL  CURR 

,A3,$ 

FIELD=SEL  STAT 

,A1,$ 

FIELD=GROUP 

,A1,$ 

FIELD=PRESELECT 

,A1,$ 

FIELD=U  GRAD  VALII 

>,            ,A1,$ 

FIELD=FY  SELECTED 

,  A2  ,  $ 

FIELD=INCR  SELECT 

,A1,$ 

FIELD=PGM  SELECT 

,A1,$ 

FIELD=CURRIC  SEL 

,  A3 ,  $ 

FIELD=SELECT  STAT 

,A1,$ 

FIELD=J  YR  SEL 

,A1,$ 

FIELD=J  STATUS 

,A1,$ 

FIELD=J  COLLEG 

,  A2 ,  $ 

FIELD=J  FYELIG 

,A2,$ 

FIELD=S  YR  SEL 

,A1,$ 

FIELD=S  STATUS 

,A1,$ 

FIELD=S  COLLEG 

,A2,$ 

FIELD=S  FYELIG 

,A2,$ 

FIELD=PRI  DUTY 

,A14,$ 

FIELD=BSC 

,A5,$ 

FIELD=GRE  YEAR 

,A1,$ 

FIELD=COLLEGEl 

,A10,$ 

FIELD=DURATIN1 

,A2,$ 

FIELD=YRCOMPl 

,A2,$ 

FIELD=SPONSRl 

,A1,$ 

FIELD=LEVEL1 

,A1,$ 

FIELD=MAJORl 

,A2,$ 

FIELD=SPEC1 

,A2,$ 

FIELD=COLLEGE2 

,A10,$ 

FIELD=DURATIN2 

,A2,$ 

FIELD=YRCOMP2 

,A2,$ 

FIELD=SPONSR2 

,A1,$ 

FIELD=LEVEL2 

,A1,$ 

FIELD=MAJOR2 

,A2,$ 

FIELD=SPEC2 

,A2,$ 

FIELD=SUBSPEC1 

ALIAS=SSC1   ,A5,$ 

FIELD=SUBSPEC2 

ALIAS=SSC2   ,A5,$ 

FIELD=SUBSPEC3 

ALIAS=SSC3   ,A5,$ 
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FIELD=SSUHIST 

,A8,$ 

FIELD=NOB  C0DE1 

,A4,$ 

FIELD=NOB  STA  COD1, 

,A3,$ 

FIELD=NOB  CLASS 1  , 

,A2,$ 

FIELD=NOB  KEY1 

,A1,$ 

FIELD=NOB  CODE2 

,A4,$ 

FIELD=NOB  STA  COD2  , 

,A3,$ 

FIELD=NOB  CLASS2  , 

,A2,$ 

FIELD=NOB  KEY2 

,A1,$ 

FIELD=NOB  CODE3 

,A4,$ 

FIELD=NOB  STA  COD3 , 

,A3,$ 

FIELD=NOB  CLASS3  , 

,A2,$ 

FIELD=NOB  KEY3 

,A1,$ 

FIELD=NOB  CODE4   , 

,A4,$ 

FIELD=NOB  STA  COD4  , 

,A3,$ 

FIELD=NOB  CLASS4  , 

,A2,$ 

FIELD=NOB  KEY4 

,A1,$ 

FIELD=NOB  CODE5 

,A4,$ 

FIELD=NOB  STA  COD5  , 

,A3,$ 

FIELD=NOB  CLASS5  , 

,A2,$ 

FIELD=NOB  KEYS 

,A1,$ 

FIELD=NOB  CODE6 

,A4,$ 

FIELD=NOB  STA  COD6 , 

,A3,$ 

FIELD=NOB  CLASS 6  , 

,A2,$ 

FIELD=NOB  KEY6 

,A1,$ 

FIELD=APC 

,A3,$ 

FIELD=DOD  LOSS  COD, 

,A3,$ 

FIELD=SEX 

,A1,$ 

FIELD=NOBC  COUNTER, 

,A2,$ 

FIELD=PGU  UTIL 

,A1,$ 

FIELD=ACTUAL  UIC  ,ALIAS=. 

&UIC   ,A5,$ 

FIELD=PARENT  UIC  ,ALIAS= 

PUIC   ,A5,$ 

FIELD=UIC  XFERD  TO, ALIAS 

=XUIC  ,A5,$ 

FIELD=AQD  COUNTER, 

,A2,$ 

FIELD=AQDDATE1 

,A2,$ 

FIELD=AQD1 

,A3,$ 

FIELD=AQDDATE2 

,A2,$ 

FIELD=AQD2 

,A3,$ 

FIELD=AQDDATE3 

,A2,$ 

FIELD=AQD3 

,A3,$ 

FIELD=AQDDATE4 

,A2,$ 

FIELD=AQD4 

,A3,$ 

FIELD=AQDDATE5 

,A2,$ 

FIELD=AQD5 

,A3,$ 

FIELD=AQDDATE6 

,A2,$ 

FIELD=AQD6 

,A3,$ 

FIELD=AQDDATE7 

,A2,$ 

FIELD=AQD7 

,A3,$ 

FIELD=AQDDATE8 

,A2,$ 

FIELD=AQD8 

,A3,$ 

FIELD=AQDDATE9 

,A2,$ 
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FIELD; 
FIELD: 
FIELD: 
FIELD: 
FIELD: 
FIELD: 
FIELD= 
FIELD: 
FIELD= 
FIELD= 
END 


=AQD9 

=AQDDATE10 

=AQD10 

=AQDDATE11 

=AQD11 

=AQDDATE12 

=AQD12 

=SSN 

=NAME 

=YOS 


,A3,$ 

,A2,$ 

,A3,$ 

,A2,$ 

,A3,$ 

,A2,$ 

,A3,$ 

,A9,$ 

,A27,$ 

,A1,$ 
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D.     TABLE  4:   OMFX  MASTER  FILE 

FILE=OMFX , SUFFIX=FOC , $ 

SEGNAME=SERVICE , SEGTYPE=S1 

FIELD=SVC         ,  ,FORMAT=A3   , FIELDTYPE=I , 

DESCRIPTION3' Individual  service  or  organization', 

TITLE= ' SVC ' , 

ACCEPT='NV  '  OR  'AR  '  OR  'AF  '  OR  'CG  '  OR  'MC  '  OR  'CIV  , 

HELP=  '***  Service  must  be  NV,  AR,  AF,  CG,  MC,  OR  CIV  ***'   ,$ 
FIELD=ALUM_FLG    ,  ,FORMAT=Al  , 

DESCRIPTION='NPS  Alumni', 

TITLE=' Alumni'  ,$ 

FIELD=ALUM_DATE   ,  , FORMAT=I4YM, 

DESCRIPTION 'Year  Month  Graduated  from  NPS', 

TITLE=' Alumni, Grad  Date'  ,  $ 


SEGNAME=MEMBER , SEGTYPE=S 1 ,  PARENT=SERVICE 

FIELD=SSN         ,  ,F0RMAT=A9  ,FIELDTYPE=I 

FIELD=NAME_SHORT  ,ALIAS=NM_S  , F0RMAT=A8  , FIELDTYPE=I , 

DESCRIPTION^ First  8  letters  of  name  field  ' 
FIELD=NAME        ,ALIAS=NM    , FORMAT=A27 , FIELDTYPE=I , 

DESCRIPTION='Last  First  Middle', 

TITLE='Name  ' 

FIELD=FILE_DATE   ,ALIAS=FY    ,F0RMAT=I4YY  , 

DESCRIPTION='Year  of  Officer  Master  File  Extracted  From' 
FIELD=GENDER      ,ALIAS=SEX   ,F0RMAT=A1, 

DESCRIPTION='F  -  Female,  M  -  Male', 

TITLE=' Gender' 
FIELD=DOD_LOSS_COD , ALIAS=ETS 
FIELD=YOS 


FIELD=PR_GRADE 

FIELD=PROMO_STAT 

FIELD=YEAR_GRP 

FIELD=DESIG 

FIELD=SEL_FY 

FIELD=SEL_INCR 

FIELD=SEL_PGM 

FIELD=SEL_CURR 

FIELD=SEL  STAT 


,ALIAS=PG 
',  ALIAS=YG 


F0RMAT=A3 
F0RMAT=A1 
F0RMAT=A1 
F0RMAT=A4 
F0RMAT=A2 
F0RMAT=A4 
F0RMAT=A2 
F0RMAT=A1 
F0RMAT=A1 
F0RMAT=A3 
F0RMAT=A1 


,$ 

,$ 

,$ 
,$ 


,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 


SEGNAME=BILLET , SEGTYPE=S 1 ,  PARENT=MEMBER 
FIELD=UIC_ACTUAL  , ALIAS=AUIC , F0RMAT=A5 
FIELD=BSC         ,  , F0RMAT=A5 

FIELD=UIC_PARENT  , ALIAS=PUIC , F0RMAT=A5 
FIELD=UIC1_X_T0, ALIAS=XUIC1 , F0RMAT=A5 
FIELD=BSC 1_X_T0 , ALIAS=XBSC 1 , F0RMAT=A5 
FIELD=PAY1_BACK   ,  ,F0RMAT=A1, 

DESCRIPTION='PAY  BACK  TOUR  OR  BILLET', 

TITLE= ' FIRST , TOUR ' , 

ACCEPT=  0  TO  4, 

HELP=  '***  PAY  BACK  MUST  BE  1,  2,  3,  OR 
FIELD=SP0NS1_NM   ,  ,FORMAT=A27 

FIELD=SP0NS1_ADDR1,  ,FORMAT=A20 

FIELD=SPONS 1_ADDR2 ,  , F0RMAT=A2  0 

FIELD=SPONS 1_ADDR3 ,  , F0RMAT=A2  0 

FIELD=SP0NS1_CITY,  ,FORMAT=A20 

FIELD=SPONS 1_STATE ,  , F0RMAT=A2 

FIELD=SP0NS1_ZIP,  ,FORMAT=A10 

FIELD=RPT1_DATE,  ,F0RMAT=I4YM 

FIELD=UIC2_X_T0 , ALIAS=XUIC2 , F0RMAT=A5 
FIELD=BSC2  X  TO, ALIAS=XBSC2 , F0RMAT=A5 


FIELDTYPE=I 
FIELDTYPE=I 

,FIELDTYPE=I 
,FIELDTYPE=I 


,FIELDTYPE=I 
, FIELDTYPE=I 


,$ 
,$ 
,$ 

,$ 
,$ 


,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
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FIELD=PAY2_BACK   ,  , F0RMAT=A1 , 

DESCRIPTION 'PAY  BACK  TOUR  OR  BILLET', 

TITLE= ' SECOND , TOUR ' , 

ACCEPT=  0  TO  4, 

HELP=  '***  PAY  BACK  MUST  BE  1,  2,  3,  OR 
FIELD=SPONS2_NM   ,  ,FORMAT=A27 

FIELD=SPONS2_ADDRl,  /FORMAT=A20 

FIELD=SPONS2_ADDR2,  ,FORMAT=A20 

FIELD=SPONS2_ADDR3 ,  , FORMAT=A2  0 

FIELD=SPONS2_CITY,  ,FORMAT=A20 

FIELD=SPONS2_STATE ,  , FORMAT=A2 

FIELD=SPONS2_ZIP,  ,FORMAT=A10 

FIELD=RPT2_DATE ,  ,FORMAT=I4YM 

FIELD=SUBSPEC 1    , ALIAS=SSC 1 , FORMAT=A5 
, ALIAS=SSC2 , FORMAT=A5 
, ALIAS=SSC3 , FORMAT=A5 
, FORMAT=Al 


FIELD=SUBSPEC2 
FIELD=SUBSPEC3 
FIELD=PGU  UTIL 


, FIELDTYPE=I 
, FIELDTYPE=I 
,FIELDTYPE=I 


DEFINE  UICBSC/A10  =  UIC  ACTUAL 


BSC 


,$ 
.$ 
.$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 

;$ 


SEGNAME=SCHOOLS , SEGTYPE=S1 , 

PARENT=MEMBER 

FIELD=COLLEGEl 

,FORMAT=A10 

FIELD=YRCOMPl 

, FORMAT=A2 

FIELD=LEVEL1 

, FORMAT=Al 

FIELD=MAJORl 

, FORMAT=A2 

FIELD=SPEC1 

, FORMAT=A2 

FIELD=COLLEGE2 

,FORMAT=A10 

FIELD=YRCOMP2 

, FORMAT=A2 

FIELD=LEVEL2 

, FORMAT=Al 

FIELD=MAJOR2 

, FORMAT=A2 

FIELD=SPEC2 

, FORMAT=A2 

END 

DBA=OMFDBA 

,$ 

USER=OMFRDR   , ACCESS 

>=R 

,$ 

USER=OMFNV    ,ACCES£ 

>=RW 

,$ 

,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
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E. 


TABLE  5:   UICX  MASTER  FILE 


FILENAME=UICX , SUFFIX=FOC , $ 


SEGNAME=UICFILE , SEGTYPE=S 1 

$ 

FIELD=UICSVC 

, FORMAT=A3 

SEGNAME=UICINFO , SEGTYPE=S1 

PARENT=UICFILE,$ 

FIELD=UIC5 

,FORMAT=A5,  FIELDTYPE=I 

FIELD=UNKN1 

, FORMAT=A2 

FIELD=ADDR  LN  NO 

,FORMAT=Il 

FIELD=ADDR  LI 

,FORMAT=A30 

FIELD=ADDR  L2 

,FORMAT=A30 

FIELD=ADDR  L3 

,FORMAT=A30 

FIELD=ADDR  L4 

,FORMAT=A30 

FIELD=ADDR  L5 

,FORMAT=A30 

FIELD=STATE 

, FORMAT=A2 

FIELD=ZIPCODE 

, FORMAT=A5 

FIELD=ZIPEXTN 

, FORMAT=A5 

FIELD=SERVICE 

, FORMAT=Al 

FIELD=COMP 

, FORMAT=Al 

FIELD=DISTR 

, FORMAT=A2 

FIELD=CONUS 

, FORMAT=Al 

FIELD=UNKN2 

, FORMAT=Al 

FIELD=CNTRYCDE 

, FORMAT=A2 

FIELD=LOCTN 

, FORMAT=Al 

FIELD=CONTN 

, FORMAT=A2 

FIELD=STATE  H 

, FORMAT=A2 

FIELD=CITY  H 

, FORMAT=A4 

FIELD=ACTVTY 

, FORMAT=Al 

FIELD=SEA  SHORE   , 

, FORMAT=Al 

FIELD=MISSION 

, FORMAT=A2 

END 

,$ 

,$ 
,$ 

,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
,$ 
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F.     TABLE  6:   BSCNV  MASTER  FILE 
FILENAME=BSCNV, SUFFIX=FOC , $ 

SEGNAME=BSCFILE , SEGTYPE=S1 ,  $ 

FIELD=UICBSC      ,  ,FORMAT=A10  ,  $ 

SEGNAME=BILLET , SEGTYPE=S 1 ,  $ 

FIELD=SUBSPEC     ,  , F0RMAT=A5  ,  $ 

FIELD=DESCRIP     ,  ,FORMAT=A25  ,$ 

FIELD=UIC  ,F0RMAT=A5,   FIELDTYPE=I  ,  $ 

END 
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G.       TABLE    7 :       REPORTS 
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H.   TABLE  8:   PROGRAM  FILES 


PROGRAM  NAME 
STARTSU  EXEC 
STARTFOC  EXEC 
PROFILE  FOCEXEC 


OMFAD1 
OMFAD1 
OMFDAO 
OMFDA1 
OMFDA1 
OMFDA1 
OMFDA1 
OMFDA1 
OMFDA2 
USEOMF 


OP  FOCEXEC 
IP  FOCEXEC 
00  FOCEXEC 
OP  FOCEXEC 
IP  FOCEXEC 
2P  FOCEXEC 
5P  FOCEXEC 
OR  FOCEXEC 
OR  FOCEXEC 
FOCEXEC 


DESCRIPTION 

Disconnects  the  Account  for  SINK  setup. 
Links  user  to  FOCUS  environment. 
Indentifies  data  base  file  and  executes 
main  menu . 

Creates  OMFX  FOCUS  from  OMF  FIX. 
Matches  with  NPS  Student  Data  Base . 
OMF  System  Main  Menu. 
Add  module . 
Modify  module. 
Delete  module. 

Add/Modify  UIC  and  BSC  transfer. 
Listing  of  officers  from  OMFX. 
Summary  of  subspecialties  from  OMFX. 
Sets  password  and  identifies  FOCUS  file 
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APPENDIX  B:   PROGRAMS 
A.   STARTSU  EXEC 

CP  LINK  FOCUS  191  193 

ACC  193  D 

FILEDEF  SYSIN  TERM 

CP  SET  RUN  ON  CP  DISCONN 

HLIMAIN  &SECRETWORD 
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B.   STARTFOC  EXEC 

&TRACE  OFF 

CP  LINK  FOCUS  191  193 

ACC  193  P 

CP  LINKTO  FOCUS  195 

GLOBAL  TXTLIB  FUSELIB 

EX  FOCUS 

&TRACE  ON 
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C.   PROFILE  FOCEXEC 

EX  USEOMF 
EX  OMFDA000 
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D.   OMFAD10P  FOCEXEC 

********************************************************************* 

*  PROGRAM:      OMFAD10P  FOCEXEC 

*  Date:         15  Jan  1993   J.  Harr 

*  Description:  This  is  the  initial  upload  program  from  an  Officer 

*  Master  fixed  file  provided  by  DMDC,  Bill  King. 
********************************************************************* 

-*  CMS  FILEDEF  OMFX  DISK  OMFX  FOCUS  D  (RECFM  F  LRECL  890 

CMS  FILEDEF  OMF  DISK  OMF  DATA  D  (RECFM  F  LRECL  316 

CMS  FILEDEF  OMFDUPS  DISK  OMFDUPS  DATA  A  (RECFM  F  LRECL  316 

MODIFY  FILE  OMFX 

CASE  TOP 

LOG  DUPL  ON  OMFDUPS  MSG  OFF 

LOG  INVALID  MSG  OFF 

COMPUTE  VALTEST/I1  =  ; 

COMPUTE  ALUM_FLAG/A1 

COMPUTE  ALUM_DATE/I4YM  = 

COMPUTE  FILE_DATE/I4YY  = 

COMPUTE  UICl_X_TO/A5  =  ; 

COMPUTE  BSCl_X_TO/A5  =  ; 

COMPUTE  PAY1_BACK/A1  =; 

COMPUTE  SP0NS1_NAME/A2  7  =; 

COMPUTE  SPONS1_ADDR1/A20  = 

COMPUTE  SPONS1_ADDR2/A20  = 

COMPUTE  SPONS1_ADDR3/A20  = 

COMPUTE  SPONS1_CITY/A20  =  j 

COMPUTE  SPONSl_ST/A2  =  ; 

COMPUTE  SPONS1_ZIP/A10  =  ; 

COMPUTE  RPT1_DATE/I4YM  =  ; 

COMPUTE  UIC2_X_TO/A5  =  ; 

COMPUTE  BSC2_X_TO/A5  =  ; 

COMPUTE  PAY2_BACK/A1  =; 

COMPUTE  SPONS2_NAME/A27  =; 

COMPUTE  SPONS2_ADDR1/A20  = 

COMPUTE  SPONS2_ADDR2/A20  = 

COMPUTE  SPONS2_ADDR3/A20  = 

COMPUTE  SPONS2_CITY/A20  =  ; 

COMPUTE  SPONS2_ST/A2  =  ; 

COMPUTE  SPONS2_ZIP/A10  =  ; 

COMPUTE  RPT2_DATE/I4YM  =  ; 

COMPUTE  SVC/ A3  =  ; 

COMPUTE  NAME_X/A4  =  ; 

COMPUTE  NAME_SHORT/A8  =  ; 

FIXFORM  X5  PR_GRADE/A1  PROMO_STAT/A4  YEAR  GRP/A2 

FIXFORM  XI  DESIG/A4  XI  SEL_FY/A2  SEL_INCR7A1  SEL_PGM/A1 

FIXFORM  SEL_CURR/A3  SEL_STAT/A1  X37  BSC/A5 

FIXFORM  XI  COLLEGE 1/A10  X2  YRCOMP1/A2 

FIXFORM  XI  LEVEL 1/A1  MAJOR 1/A2  SPEC1/A2 

FIXFORM  COLLEGE2/A10  X2  YRCOMP2/A2 

FIXFORM  XI  LEVEL2/A1  MAJOR2/A2  SPEC2/A2 

FIXFORM  SUBSPEC1/A5  SUBSPEC2/A5  SUBSPEC3/A5 

FIXFORM  X71  DOD_LOSS_COD/A3  GENDER/A1  X2  PGU_UTIL/A1 

FIXFORM  UIC_ACTUAL/A5  UIC  PARENT/A5 

FIXFORM  X67  SSN/A9  NAME/AI7  YOS/Al 

COMPUTE  FILE_DATE  =  1991; 

COMPUTE  ALUM_FLAG/A1  =  'Y'; 

COMPUTE  ALUM_DATE/I4YM  =  0; 

COMPUTE  UICl_X_TO/A5  =  '      ' ; 

COMPUTE  BSCl_X_TO/A5  =  ' 

COMPUTE  PAY1_BACK/A1  =  '0'; 

COMPUTE  SP0NS1_NAME/A27  =  '  '; 
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COMPUTE  SPONS1_ADDR1/A2  0  = 

COMPUTE  SPONS1_ADDR2/A20  = 

COMPUTE  SPONS1_ADDR3/A20  = 

COMPUTE  SPONS1_CITY/A20  = 

COMPUTE  SPONSl_ST/A2  =  ' 

COMPUTE  SPONS1_ZIP/A10  =  ' 

COMPUTE  RPT1_DATE/I4YM  =  9201; 

COMPUTE  UIC2_X_TO/A5  =  ' 

COMPUTE  BSC2_X_TO/A5  =  ' 

COMPUTE  PAY2_BACK/A1  =  '  0  '  ; 

COMPUTE  SPONS2_NAME/A27  =  ' 

COMPUTE  SPONS2_ADDR1/A20  = 

COMPUTE  SPONS2_ADDR2/A20  = 

COMPUTE  SPONS2_ADDR3/A20  = 

COMPUTE  SPONS2_CITY/A20  = 

COMPUTE  SPONS2_ST/A2  =  ' 

COMPUTE  SPONS2_ZIP/A10  =  ' 

COMPUTE  RPT2_DATE/I4YM  =  9201; 

COMPUTE  SVC  =  '  NV  '  ; 

COMPUTE  NAME_X  =  EDIT(NAME , ' 9999$$$$$$$$$$$$$$$$$$$$$$$ ' ) ; 

COMPUTE  NAME_SHORT  =  EDIT(NAME ,' 99999999$$$$$$$$$$$$$$$$$$$ ')  ; 

VALIDATE 

VALTEST  =  IF  COLLEGE 1  EQ  'MONTEREY'  OR  COLLEGE2  EQ  'MONTEREY' 
THEN  1  ELSE  0; 

ON  INVALID  GOTO  TOP 
MATCH  SVC 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  UIC_ACTUAL 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  INCLUDE 

ON  MATCH  REJECT 
ENDCASE 
DATA  ON  OMF 
END 
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E.   0MFAD11P  FOCEXEC 

********************************************************************* 

*  PROGRAM:      OMFAD11P  FOCEXEC 

*  Date:         15  Mar  1993   J.  Harr 

*  Description:  This  upload  program  updates  the  OMFX  file  with  the 

*  navy  student  match  extract. 
********************************************************************* 

-*  CMS  FILEDEF  OMFX  DISK  OMFX  FOCUS  D  (RECFM  F  LRECL  890 

CMS  FILEDEF  OMFIT  DISK  NOMF  FOCTEMP  T  (RECFM  F  LRECL  316 

-*  CMS  FILEDEF  OMFDUPS  DISK  OMFDUPS  DATA  A  (RECFM  F  LRECL  316 

MODIFY  FILE  OMFX 

CASE  TOP 

LOG  DUPL  MSG  OFF 

LOG  INVALID  MSG  OFF 

COMPUTE  VALTEST/I1  =  ; 

COMPUTE  ALUM_FLAG/A1 

COMPUTE  ALUM_DATE/I4YM  = 

COMPUTE  FILE_DATE/I4YY  = 

COMPUTE  UICl_X_TO/A5  =  ; 

COMPUTE  BSCl_X_TO/A5  =  ; 

COMPUTE  PAY1_BACK/A1  =; 

COMPUTE  SP0NS1_NAME/A27  =; 

COMPUTE  SPONS1_ADDR1/A20  = 

COMPUTE  SPONS1_ADDR2/A20  = 

COMPUTE  SPONS1_ADDR3/A20  = 

COMPUTE  SPONS1_CITY/A20  =  , 

COMPUTE  SPONSl_ST/A2  =  ; 

COMPUTE  SPONS1_ZIP/A10  =  ; 

COMPUTE  RPT1_DATE/I4YM  =  ; 

COMPUTE  UIC2_X_TO/A5  =  ; 

COMPUTE  BSC2_X_TO/A5  =  ; 

COMPUTE  PAY2_BACK/A1  =; 

COMPUTE  SPONS2_NAME/A27  =; 

COMPUTE  SPONS2_ADDR1/A20  = 

COMPUTE  SPONS2_ADDR2/A20  = 

COMPUTE  SPONS2_ADDR3/A20  = 

COMPUTE  SPONS2_CITY/A20  =  ; 

COMPUTE  SPONS2_ST/A2  =  ; 

COMPUTE  SPONS2_ZIP/A10  =  ; 

COMPUTE  RPT2_DATE/I4YM  =  ; 

COMPUTE  SVC/A3  =  ; 

COMPUTE  NAME_X/A4  =  ; 

COMPUTE  NAME_SHORT/A8  =  ; 

FIXFORM  X5  PR_GRADE/A1  PROMO_STAT/A4  YEAR  GRP/A2 

FIXFORM  XI  DESIG/A4  XI  SEL_FY/A2  SEL_INCR7A1  SEL_PGM/A1 

FIXFORM  SEL_CURR/A3  SEL_STAT/A1  X37  BSC/A5 

FIXFORM  XI  COLLEGE1/A10  X2  YRCOMP1/A2 

FIXFORM  XI  LEVEL1/A1  MAJOR1/A2  SPEC1/A2 

FIXFORM  COLLEGE2/A10  X2  YRCOMP2/A2 

FIXFORM  XI  LEVEL2/A1  MAJOR2/A2  SPEC2/A2 

FIXFORM  SUBSPEC1/A5  SUBSPEC2/A5  SUBSPEC3/A5 

FIXFORM  X71  DOD_LOSS_COD/A3  GENDER/Al  X2  PGU_UTIL/A1 

FIXFORM  UIC_ACTUAL/A5  UIC_PARENT/A5 

FIXFORM  X67  SSN/A9  NAME/A27  YOS/A1 

COMPUTE  FILE_DATE  =  1991; 

COMPUTE  ALUM_FLAG/A1  =  'Y'; 

COMPUTE  ALUM_DATE/I4YM  =  0; 

COMPUTE  UICl_X_TO/A5  =  '      ' ; 

COMPUTE  BSCl_X_TO/A5  =  ' 

COMPUTE  PAY1_BACK/A1  =  '  0  '  ; 

COMPUTE  SP0NS1_NAME/A27  =  '  '; 
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COMPUTE  SPONS1_ADDR1/A20  = 

COMPUTE  SPONS1_ADDR2/A20  = 

COMPUTE  SPONS1_ADDR3/A20  ■ 

COMPUTE  SPONS1_CITY/A20  = 

COMPUTE  SPONSl_ST/A2  =  ' 

COMPUTE  SPONS1_ZIP/A10  =  ' 

COMPUTE  RPT1_DATE/I4YM  =  9201; 

COMPUTE  UIC2_X_TO/A5  =  ' 

COMPUTE  BSC2_X_TO/A5  =  ' 

COMPUTE  PAY2_BACK/A1  =  ' 0 ' ; 

COMPUTE  SPONS2_NAME/A27  =  ' 

COMPUTE  SPONS2_ADDR1/A20  = 

COMPUTE  SPONS2_ADDR2/A20  = 

COMPUTE  SPONS2_ADDR3/A20  = 

COMPUTE  SPONS2_CITY/A20  = 

COMPUTE  SPONS2_ST/A2  =  ' 

COMPUTE  SPONS2_ZIP/A10  =  ' 

COMPUTE  RPT2_DATE/I4YM  =  9201; 

COMPUTE  SVC  =  ' NV  ' ; 

COMPUTE  NAME_X  =  EDIT(NAME , ' 9999$$$$$$$$$$$$$$$$$$$$$$$ ' ) ; 

COMPUTE  NAME_SHORT  =  EDIT(NAME ,' 99999999$$$$$$$$$$$$$$$$$$$ ') ; 

MATCH  SVC 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  UIC_ACTUAL 

ON  NOMATCH  INCLUDE 

ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  INCLUDE 

ON  MATCH  REJECT 
ENDCASE 
DATA  ON  OMFIT 
END 
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F.   OMFDAOOO  FOCEXEC 

_*************   REMOVE  BEFORE  INSTALLATION   **************** 

SET  PF04  =  END 

_*********************************************************** 

_* 

-*   Program:   OMFDAOOO 

-*   This  is  the  main  menu  for  the  Officer  Master  File  system. 

_* 

-*  Calls: 

-*  OMFDA10P  ADD  an  Individual  Record 

-*  OMFDA11P  Modify  an  OMF  Record 

-*  OMFDA12P  Delete  an  OMF  Record 

-*  OMFDA15P  Add  Transfer  Data  to  OMF 

-*  OMFDA80R  DISPLAY/PRINT  AN  INDIVIDUAL ( S )  RECORD 

-*  OMFDA90R  PRINT  A  SUMMARY  REPORT 

_* 

_*********************************************************** 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 


-*  Note:   The  Service  variable  (&&SVC)  is  set  to  'NV  '  for  Navy. 


_*****      *****      ***** 

-SET  &&SVC  =  'NV  ' ; 

_*****      *****      ***** 


***** 


***** 


***** 


-SET  &PFKEY  =  ' 

-SET  &OPTION  =  '  ' ; 

-SET  &:AAA  =  ' 

-SET  &:BBB  =  ' 

-SET  &CURSOR=' :AAA' ; 

-START 

-CRTFORM 


000000000000 

MMMM 

MMMMM 

-FFFFFFFFFFF" 

0000000000000000 

MMMM 

MMMMM 

-FFFFFFFFFFF" 

00 

00 

MM  MM 

MM  MM 

00 

00 

MM   MM 

MM   MM 

00 

00 

MM    MM 

MM    MM 

00 

00 

MM     MMMM     MM 

0000000000000000 

MM      MM 

MM 

000000000000 

MM 

MM 

-"</02   ■ 

-"  Naval  Postgraduate  School" 

OFFICER  MASTER  FILE  SYSTEM- 
NAVY" 
-"</02   " 

-"  Press  ENTER  to  continue" 

-IF  &PFKEY  =  'PF03'  OR  'PF15'  THEN  GOTO  EXITING; 
-BEGIN 
-CRTFORM 
-"   OMFDA000-1.0 

<D.&DATE/08" 

Naval  Postgraduate  School" 

OFFICER  MASTER  FILE  SYSTEM" 

it   rt 

OMF  MAIN  EDIT  MENU" 


<0X 

<0X 

FF" 

FFFFFFFFF' 

FF" 

FF" 

FF" 

FF" 


<0X 
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-"</01 


1. 

2. 
3. 

4. 
T. 


Add  an  Individual  Record 
Modify  Individual  Record 
Delete  Individual  Record 
Add  Transfer  Data  " 
Report  with  TABLETALK 


EXIT' 


-<&:BBB.CD.&&SVC/02>' 


OPTION  }<&:AAA.C.&OPTION/01 | { 
-SET  &GOBACK= ' BEGIN ' ; 
-SET  &MSG  =  ' 
-SET  &&MSGFLAG  =  '  '  ; 
-SET  &WHERE=DECODE  &OPTION(l 


Service   — >  <0X 


<.HD.&MSG/44 


1 

'OMFDA10P' 

2 

'OMFDA11P' 

3 

'0MFDA12P' 

4 

'0MFDA15P' 

T 

' TABLETALK ' 

X 

'EXITING' 

R 

>; 

'EXIT' 

ELSE  ' ERRORMSG ' 
-IF  &PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
-IF  &WHERE  EQ  'EXIT'  THEN  GOTO  EXIT; 
-IF  &WHERE  EQ  'EXITING'  THEN  GOTO  EXITING; 
-IF  &WHERE  EQ  'TABLETALK'  THEN  GOTO  TABLERPT; 
-*   OMFUSE  SETS  UP  THE  OMF  DATABASE 
-*  EX  USEOMF 
-*  -RUN 
EX  &WHERE 
-RUN 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

-GOTO  &GOBACK 
-*   OPTION  T 
-TABLERPT 
TABLETALK 
-RUN 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

-GOTO  &GOBACK 
-*   OPTION  X 
-EXITING 

SET  PF03  =  END,PF15  =  END 
FIN 
-EXIT 


-ERRORMSG 

-SET  &MSG  =  'OPTION  }  '  |  &OPTION  |  '  {  is  incorrect.   Please  reenter.'; 

-GOTO  &GOBACK 


-ERRORMSG2 

-SET  &MSG  =  'SVC  }  '  |  &&SVC 
-SET  S.CURSOR  =  ':BBB'; 
-GOTO  &GOBACK 


'  {  is  incorrect.   Please  reenter.'; 
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6.     OMFDA10P  FOCEXEC 

_*******•********•************•********************************•********* 
-*   Program:   OMFDA10P 

-*   This  program  is  used  to  input  student  personnel  data  not  on  initial 
-*   data  base. 

_* 

-*   Called  From:   OMFDA000  FOCEXEC  main  dirver  program  menu. 
-*   Files:         OMFX  FOCUS 

_*****************•****************************************************** 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/A1  =  ; 
PFKEY/A4  =  ; 
GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV  ' ; 
TUIC/A5  =  '62271'  ; 
TCOLLEGE/A10  =  'NPS 
CRTFORM  LINE  01  TYPE  1 

"   OMFDA10P-1.1  NAVAL  POSTGRADUATE  SCHOOL  <0X 

&DATE" 

OFFICER  MASTER  FILE  SYSTEM" 
ADD  SCREEN  1" 

tt   n 

Create  an  Officer  Master  record  by  entering  the  following  data:" 

n   ii 

SSN  <T.SSN/09>" 

SVC:  <D.TSVC/03>" 

CURRENT  UIC:    <D.TUIC/05>" 
COLLEGE :        <D . TCOLLEGE / 1 0  > " 
"</09   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
COMPUTE 

SVC  =  TSVC; 
UIC_ACTUAL  =  TUIC; 
COLLEGE 1  =  TCOLLEGE; 
MATCH  SVC 

ON  MATCH  TYPE  "SVC  MATCH  " 
ON  NOMATCH  TYPE  "SVC  <SVC  NOMATCH  " 
ON  MATCH  CONTINUE 
MATCH  SSN 

ON  MATCH  TYPE  "SSN  <SSN  EXISTS  " 
ON  MATCH  REJECT 

ON  NOMATCH  TYPE  "SSN  NOMATCH  " 
ON  NOMATCH  GOTO  ADDSSN 
ENDCASE 

CASE  ADDSSN 

COMPUTE  SSN   =  SSN; 

CRTFORM  LINE  01 

"   OMFDA10P-1.2  NAVY  POSTGRADUATE  SCHOOL  <0X 


&DATE" 


SSN:   <D.SSN/09>" 


Officer  Master  File  System* 
Add  Screen  2" 
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NAME  (LAST  FIRST  MIDDLE):   <T.NAME/27>" 

GENDER  (F/M):   <T.SEX/01>   ESTIMATED  TIME  IN  SERVICE  (A3):  <0X 
<T.ETS/03>" 

YOS  (12  3):   <T.YOS/01>   PAY  GRADE:   <T.PG/01>" 

PROMOTION  STATUS:   <T. PROMO_STAT/04>" 

YEAR  GROUP:   <T.YG/02>   DESIGNATOR:   <T. DESIG/04>" 

SELECTION  YEAR:   <T . SEL_FY/02>   INCREMENT:   <0X 
<T.SEL_INCR/01>   PROGRAM:   <T . SEL_PGM/01>" 

CURRICULUM:   <T. SEL_CURR/01>   STATUS:   <T . SEL_STAT/01>" 
"</05   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
MATCH  SSN 

ON  NOMATCH 
COMPUTE  NAME_SHORT  =  EDIT(NAME ,  ' 99999999$$$$$$$$$$$$$$$$$$ ') ; 

ON  NOMATCH  INCLUDE 

ON  NOMATCH  GOTO  ADDUIC 
ENDCASE 

CASE  ADDUIC 
COMPUTE  SSN   =  SSN; 

UIC_ACTUAL  =  AUIC; 
CRTFORM  LINE  01 

"   OMFDA10P-1.3         Officer  Master  File  System  <0X 

&DATE" 

Add  Screen  3" 
"<.HD.NAME/27>" 
"Please  input  UIC  data..." 

"CURRENT  UIC:   <D . UIC_ACTUAL/05>   CURRENT  BSC :   <T.BSC/05>" 
"Is  this  a  pay  back  tour  or  billet:    }<T.PAY1_BACK/01>{ " 
"(1  =  Yes;  2  =  School/Training;  3  =  Unknown;  4  =  No)" 
"UIC  }<T.UIC1_X_TO/05>{   BSC  }<T. BSC1_X_TO/05>{     ETS  (YM)  }<0X 
<T . RPT 1_DATE / 0  4  >  < " 
"Sponsor  Name  }<T.SPONSl_NM/27>{ " 
"Sponsor  Address  }<T.SPONS1_ADDR1/20>{ " 
}<T.SPONS1_ADDR2/20>{" 

City     }<T.SPONS1_CITY/20>{   State  }<0X 
<T.SPONS1_STATE/02>{   Zip  }<T. SPONS1_ZIP/10>{ " 
"FOLLOWING  tour  of  duty:" 

"UIC  }<T.UIC2_X_TO/05>{   BSC  }<T. BSC2_X_TO/05>{     ETS  (YM)  }<0X 
<T . RPT2_DATE / 0  4  > { " 

"Is  this  a  pay  back  tour  or  billet:    }<T.PAY2_BACK/01>{ " 
"Sponsor  Name  }<T.SPONS2_NM/27>{" 
"Sponsor  Address  }<T.SPONS2_ADDR1/20>{ " 
}<T.SPONS2_ADDR2/20>{" 

City     }<T.SPONS2_CITY/20>{   State  }<0X 
<T.SPONS2_STATE/02>{   Zip  }<T . SPONS2_ZIP/10>{ " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  UIC_ACTUAL 

ON  NOMATCH  TYPE  "AUIC  NOMATCH  " 

ON  MATCH  TYPE  "AUIC  MATCH  " 

ON  MATCH  UPDATE  BSC 

ON  MATCH  GOTO  ADDEDU 
ENDCASE 

CASE  ADDEDU 
COMPUTE  SSN   =  SSN; 

COLLEGE 1  =  COLLEGE 1; 
CRTFORM  LINE  01 
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"   OMFDA10P-1.4         Officer  Master  File  System  <0X 

&DATE" 
"  Add  Screen  4 " 

II     M 

"<.HD. NAME/2 7>" 

ii    it 

"Please  input  current  graduate  data:" 

"COLLEGE  NAME   }<D . COLLEGE1/10>{     YEAR  COMPLETED  }<0X 

<T.YRCOMP1/02>{" 

"Level  }<T.LEVEL1/01>{   Major  }<T.MAJOR1/02>{      Specialty      }<0X 

<T.SPECl/02>{" 

n   n 

"Please  input  previous  college  data:" 

"College  Name   }<T.COLLEGE2/10>{     Year  Completed  }<0X 

<T.YRCOMP2/02>{" 

"Level  }<T.LEVEL2/01>{   Major  }<T.MAJOR2/02>{      Specialty      }<0X 

<T.SPEC2/02>{" 

"</05   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
MATCH  SSN 

ON  MATCH  TYPE  "COL  SSN  MATCH  " 

ON  NOMATCH  TYPE  "COL  SSN  NOMATCH  " 

ON  MATCH  CONTINUE 
MATCH  COLLEGE 1 

ON  NOMATCH  TYPE  "**  ERROR  IN  ADDEDU  CASE  **  " 

ON  MATCH  TYPE  "**  <NAME  HAS  BEEN  ADDED  TO  THE  OMF  **" 

ON  MATCH  UPDATE  YRCOMP1 
ENDCASE 

CASE  ERRMSG 

CRTFORM  LINE  1 

"  ***  Record  already  in  data  base.   Use  Update  Menu  to  MODIFY.  ***" 

ENDCASE 

DATA 

END 
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H.     0MFDA11P  FOCEXEC 

-*   Program:   0MFDA11P 

-*   This  program  is  used  to  modify  student  personnel  data. 

_* 

-*   Files:         OMFX  FOCUS 

..a*********************************************************************** 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/A1  =  ; 
PFKEY/A4  =  ; 
GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV  ' ; 

TUIC/A5  =  '62271'  ; 

TCOLLEGE/A10  =  'NPS        '; 
CRTFORM  LINE  01  TYPE  1 

"   OMFDA11P-1.1  NAVAL  POSTGRADUATE  SCHOOL  <0X 

&DATE" 

OFFICER  MASTER  FILE  SYSTEM" 
"  Modify  Screen  1" 

it    it 

"   Modify  an  Officer  Master  record  by  entering  the  following  data:" 

u   if 

SSN  <T.SSN/09>" 

SVC:  <D.TSVC/03>" 

CURRENT  UIC:    <D.TUIC/05>" 
COLLEGE:        <D. TCOLLEGE/10>" 
"</09   M 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
COMPUTE 

SVC  =  TSVC; 
UIC_ACTUAL  =  TUIC; 
COLLEGE 1  =  TCOLLEGE; 
MATCH  SVC 

ON  MATCH  TYPE  "SVC  MATCH  " 
ON  NOMATCH  TYPE  "SVC  <SVC  NOMATCH  " 
ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  GOTO  ERRMSG 
ON  MATCH  TYPE  "SSN  MATCH  " 
ON  MATCH  GOTO  MODSSN 
ENDCASE 

CASE  MODSSN 

COMPUTE  SSN   =  SSN; 

CRTFORM  LINE  01 

"   OMFDA11P-1.2  NAVY  POSTGRADUATE  SCHOOL  <0X 

&DATE" 
"  Officer  Master  File  System" 

Modify  Screen  2" 

SSN:   <D.SSN/09>" 

NAME  (LAST  FIRST  MIDDLE):   <T.NAME/27>" 

GENDER  (F/M):   <T.SEX/01>   ESTIMATED  TIME  IN  SERVICE  (A3):  <0X 
<T.ETS/03>" 
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YOS  (12  3):   <T.YOS/01>   PAY  GRADE:   <T.PG/01>" 

PROMOTION  STATUS:   <T. PROMO_STAT/04>" 

YEAR  GROUP:   <T.YG/02>   DESIGNATOR:   <T . DESIG/04>" 

SELECTION  YEAR:   <T . SEL_FY/02>   INCREMENT:   <0X 
<T.SEL_INCR/01>   PROGRAM:   <T. SEL_PGM/01>" 

CURRICULUM:   <T. SEL_CURR/01>   STATUS:   <T . SEL_STAT/01>" 
"</05   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
MATCH  SSN 

ON  MATCH 
COMPUTE  NAME_SHORT  =  EDIT(NAME,  ' 99999999$$$$$$$$$$$$$$$$$$ ')  ; 

ON  MATCH  UPDATE  NAME_SHORT  NAME  FY  SEX  ETS  YOS  PG  PROMO_STAT 

ON  MATCH  UPDATE  YG  DESIG  SEL_FY  SEL_INCR  SEL_PGM  SEL_CURR  SEL_STAT 

ON  MATCH  GOTO  MODUIC 
ENDCASE 

CASE  MODUIC 
COMPUTE  SSN   =  SSN; 

UIC_ACTUAL  =  AUIC; 
CRTFORM  LINE  01 

"   OMFDA11P-1.3         Officer  Master  File  System  <0X 

&DATE" 

Modify  Screen  3" 
"<.HD.NAME/27>" 
"Please  input  UIC  data..." 

"CURRENT  UIC:   <D . UIC_ACTUAL/05>   CURRENT  BSC :   <T.BSC/05>" 
"Is  this  a  pay  back  tour  or  billet:    }<T.PAY1_BACK/01>{ " 
"(1  =  Yes;  2  =  School/Training;  3  =  Unknown;  4  =  No)" 
"UIC  }<T.UIC1_X_TO/05>{   BSC  }<T. BSC1_X_TO/05>{     ETS  (YM)  }<0X 
<T . RPT 1_DATE / 0 4 > { M 
"Sponsor  Name  }<T.SPONSl_NM/27>{ " 
"Sponsor  Address  }<T.SPONS1_ADDR1/20>{ " 

}<T. SPONS1_ADDR2/20>{ " 
City     }<T.SPONS1_CITY/20>{   State  }<0X 
<T.SPONS1_STATE/02>{   Zip  }<T . SPONS1_ZIP/10>{ " 
"FOLLOWING  tour  of  duty:" 

"UIC  }<T.UIC2_X_TO/05>{   BSC  }<T. BSC2_X_TO/05>{     ETS  (YM)  }<0X 
<T.RPT2_DATE/04>{" 

"Is  this  a  pay  back  tour  or  billet:    }<T.PAY2_BACK/01>{ " 
"Sponsor  Name  }<T.SPONS2_NM/27>{ " 
"Sponsor  Address  }<T.SPONS2_ADDR1/20>{ " 

} <T . SPONS 2_ADDR2 / 2 0 > { " 
City     }<T.SPONS2_CITY/20>{   State  }<0X 
<T.SPONS2_STATE/02>{   Zip  }<T. SPONS2_ZIP/10>{ " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  UIC_ACTUAL 

ON  NOMATCH  TYPE  "AUIC  NOMATCH  " 

ON  MATCH  TYPE  "AUIC  MATCH  " 

ON  MATCH  UPDATE  BSC  PUIC  XUIC1  XBSC1  PAY1_BACK  SPONS 1_NM 

ON  MATCH  UPDATE  SPONS 1_ADDR1  SPONS 1_ADDR2  SPONS 1_ADDR3 

ON  MATCH  UPDATE  SPONS 1_CITY  SPONS 1_STATE  SPONS 1_Z IP  RPT1_DATE 

ON  MATCH  UPDATE  XUIC2  XBSC2  PAY2_BACK  SPONS2_NM 

ON  MATCH  UPDATE  SPONS2_ADDRl  SPONS2_ADDR2  SPONS2_ADDR3 

ON  MATCH  UPDATE  SPONS2_CITY  SPONS2_STATE  SPONS2_ZIP  RPT2_DATE 

ON  MATCH  GOTO  MODEDU 

ENDCASE 

CASE  MODEDU 
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COMPUTE  SSN   =  SSN; 

COLLEGE 1  =  COLLEGE 1; 
CRTFORM  LINE  01 

"   OMFDA11P-1.4         Officer  Master  File  System  <0X 

S.DATE" 

Modify  Screen  4" 

n    it 

"<.HD.NAME/27>" 

It    n 

"Please  input  current  graduate  data:" 

"COLLEGE  NAME   }<D . COLLEGE1/10>{     YEAR  COMPLETED  }<0X 

<T.YRCOMP1/02>{" 

"Level  }<T.LEVEL1/01>{   Major  }<T.MAJOR1/02>{       Specialty       }<0X 

<T.SPECl/02>{" 

it    it 

"Please  input  previous  college  data:" 

"College  Name   }<T.COLLEGE2/10>{     Year  Completed  }<0X 

<T.YRCOMP2/02>{" 

"Level  }<T.LEVEL2/01>{   Major  }<T.MAJOR2/02>{       Specialty       }<0X 

<T.SPEC2/02>{" 

"</05   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 

IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 

MATCH  SSN 

ON  MATCH  CONTINUE 

MATCH  COLLEGE 1 

ON  NOMATCH  TYPE  "**  ERROR  IN  MODEDU  CASE  **  " 

ON  MATCH  TYPE  "**  Record  has  been  modified:  <NAME  **" 

ON  MATCH  UPDATE  YRCOMP1  LEVEL 1  MAJOR 1  SPEC1 

ON  MATCH  UPDATE  COLLEGE2  YRCOMP2  LEVEL2  MAJOR2  SPEC2 

ENDCASE 

CASE  ERRMSG 

CRTFORM  LINE  1 

"  ***  Record  NOT  in  data  base.   Use  Add  Menu  to  ADD.  ***" 

ENDCASE 

DATA 

END 
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I.     0MFDA12P  FOCEXEC 

-*   Program:   0MFDA12P 

-*  This  program  is  used  to  delete  OMFX  records. 

_* 

-*   Files:         OMFX  FOCUS 

_**********************************************************•************* 

SET  PF03  =  RETURN 
SET  PF15  =  RETURN 
-RUN 

MODIFY  FILE  OMFX 
COMPUTE 

DUM/A1  =  ; 
PFKEY/A4  =  ; 
GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

TSVC/A3  =  'NV  ' ; 
CRTFORM  LINE  01  TYPE  1 
"   OMFDA12P-1. 1  NAVAL  POSTGRADUATE  SCHOOL  <0X 


&DATE" 


OFFICER  MASTER  FILE  SYSTEM" 
Delete  Screen" 


Delete  an  Officer  Master  record  by  entering  the  following  data:" 

tt 

SSN  <T.SSN/09>" 

</09   " 

PRESS  PF3/PF15  TO  RETURN  TO  PREVIOUS  MENU" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
COMPUTE 

SVC  =  TSVC; 
MATCH  SVC 

ON  MATCH  CONTINUE 
MATCH  SSN 

ON  NOMATCH  GOTO  ERRMSG 

ON  MATCH  TYPE  "**  Record  <SSN  DELETED.   Enter  next  SSN  or  exit.  ** 
ON  MATCH  DELETE 
ENDCASE 

CASE  ERRMSG 

COMPUTE  SSN  =  SSN; 

CRTFORM  LINE  1 

"  ***  RECORD  <D.SSN  NOT  IN  DATA  BASE.  ***" 

ENDCASE 

DATA 

END 
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J.      0MFDA15P  FOCEXEC 

-*  Program:   0MFDA15P 

-*  This  program  is  used  for  students  to  input  their  UIC  and  BSC  that 

-*  they  are  transferring  to. 

_* 

-*   Files:   OMFX  FOCUS  —  indexes  by  SSN 

SET  PF03  =  RETURN 

SET  PF15  =  RETURN 

CMS  FILEDEF  OMFNOSSN  DISK  OMFNOSSN  DATA  A  (LRECL  100  RECFM  FB  DISP  MOD) 

MODIFY  FILE  OMFX. SSN 

LOG  NOMATCH  ON  OMFNOSSN  MSG  OFF 

COMPUTE 

DUM/A1  =  ; 

PFKEY/A4  =  ; 
GOTO  BEGIN 

CASE  BEGIN 
COMPUTE 

DOC_NUM/A8  =  ' ' ; 

AC_NUM/A2  -  "  ; 
CRTFORM  LINE  01  TYPE  1 
"   OMFDA15P-1.0  SVC  &&SVC  <0X 


&DATE' 


Officer  Master  File  System" 
Edit  Screen" 

Enter  SSN   }<SSN/09>{ 


"</01   " 

n 

"</13   B 

PRESS  ENTER  to  Continue  or  PF3  to  Quit" 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 
MATCH  SSN 

ON  NOMATCH  TYPE 

"**SSN  }  <SSN  {  IS  NOT  ON  FILE**" 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  EDINFO 
ENDCASE 

CASE  EDINFO 
NEXT  UIC_ACTUAL 
ON  NEXT 

CRTFORM  LINE  04 
"   <.HD.NAME/27>" 

PLEASE  PROVIDE  THE  FOLLOWING  INFORMATION..." 

"NEXT  tour  of  duty  assignment:" 

"UIC  }<T.UIC1_X_TO/05>{   BSC  }<T.BSC1_X_TO/05>{     ETS  (YM)  }<0X 
<T.RPTl_DATE/04>{" 

"Is  this  a  pay  back  tour  or  billet:    }<T.PAY1_BACK/01>{ " 
"(1  =  Yes;  2  =  School/Training;  3  =  Unknown;  4  =  No)" 
"Sponsor  Name  }<T.SPONSl_NM/27>{" 
"Sponsor  Address  }<T.SPONS1_ADDR1/20>{ " 
} <T . SPONS 1_ADDR2 / 2 0 > { " 
City    }<T.SPONS1_CITY/20>{   State  }<0X 
<T. SPONS l_STATE/02>{   Zip  }<T . SPONS1_ZIP/10>{ " 
"FOLLOWING  tour  of  duty:" 

"UIC  }<T.UIC2_X_TO/05><   BSC  }<T.BSC2_X_TO/05>{     ETS  (YM)  }<0X 
<T.RPT2_DATE/04><" 

"Is  this  a  pay  back  tour  or  billet:    }<T.PAY2_BACK/01>{ " 
"Sponsor  Name  }<T.SPONS2_NM/27>{ " 
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"Sponsor  Address  }<T.SPONS2_ADDR1/20>{ " 
}<T.SPONS2_ADDR2/20>{" 
City     }<T.SPONS2_CITY/20>{   State  }<0X 
<T.SPONS2_STATE/02>{   Zip  }<T . SPONS2_ZIP/10>{ " 

"***PRESS  TAB  to  Next  Field,  ENTER  to  Add  Data,  or  PF3  to  Quit**' 
IF  PFKEY  EQ  'PF03'  OR  'PF15'  THEN  GOTO  EXIT; 


ON  NEXT  TYPE 

"<40  UIC/BSC  INFORMATION 
ON  NEXT  UPDATE  UIC1_X 
ON  NEXT  UPDATE  SPONSl" 
ON  NEXT  UPDATE  SPONSl" 
ON  NEXT  UPDATE  UIC2_X" 
ON  NEXT  UPDATE  SPONS2" 
ON  NEXT  UPDATE  SPONS2" 
ON  NONEXT  TYPE 

"<40  UIC  }<UIC_ACTUAL  { 
ON  NONEXT  GOTO  BEGIN 
ENDCASE 


UPDATED" 

TO     BSCl_X_TO  PAY1_BACK     SPONSl_NM 

"ADDR1  SPONSl_ADDR2  SPONSl_ADDR3 

CITY   SPONSl_STATE  SPONSl_ZIP    RPT1_DATE 

TO     BSC2_X_TO  PAY2_BACK     SPONS2_NM 

"ADDR1  SPONS2_ADDR2  SPONS2_ADDR3 

CITY   SPONS2_STATE  SPONS2_ZIP    RPT2_DATE 

DOES  NOT  MATCH" 


DATA 
END 


44 


K.   OMFDA10R  FOCEXEC 

-*  PROGRAM:   OMFDA10R  FOCEXEC 

-*  THIS  PROGRAM  PRODUCES  A  LISTING  OF  KEY  ELEMENTS  OF  OMFX . 

_* 

-*  J.  HARR  APR  1993 

OFFLINE  CLOSE 

CMS  FILEDEF  OFFLINE  CLEAR 

CMS  FILEDEF  OFFLINE  DISK  OMFDA10R  LISTING  T  (LRECL  132  RECFM  F 

TABLE  FILE  OMFX 

"REPORT  NO:OMFDA10R         NAVAL  POSTGRADUATE  SCHOOL 

<+14   PAGE  NO:   <+4  <TABPAGENO>  " 

"PREPARED:   &DATE  NAVY  OMFX   " 

PRINT  SSN  NAME 

AUIC  AS  ' CURRENT, UIC ' 

BSC   AS  ' CURRENT , BSC ' 

XUIC1  AS  'TRANSFER,  TO  UIC 

XBSC1  AS  'TRANSFER,  TO  BSC 

COLLEGE 1  AS  'COLLEGE' 

YRCOMP1  AS  'YEAR,COMP' 

MAJOR 1  AS  'MAJOR' 

SPEC1  AS  'SPEC 
BY  SVC  NOPRINT 
END 
-RUN 
-CMS  XEDIT  OMFDA10R  LISTING  T 
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L.   OMFDA20R  FOCEXEC 

-*  PROGRAM:   OMFDA20R  FOCEXEC 

-*  THIS  PROGRAM  COUNTS  ALL  HOLDERS  OF  SUBSPECIALTIES  GRANTED  BY 

-*  NPS  REGARDLESS  OF  WHERE  AN  OFFICER  OBTAINED  THEM.   THE  REPORT 

-*  IS  GROUPED  BY  SUBSPECIALTY. 

-*  AUTHOR:    HOWARD  MORTON 

-*  MODIFIED:  J.  HARR   APRIL  1993 

OFFLINE  CLOSE 

CMS  FILEDEF  OFFLINE  CLEAR 

CMS  FILEDEF  OFFLINE  DISK  OMFDA20R 

TABLE  FILE  OMFX 

PRINT  SUBSPEC1  COLLEGE 1  COLLEGE2 


LISTING  T  (LRECL  132  RECFM  F 


OR 
OR 
OR 
OR 
OR 
OR 
OR 


'$$45$ 
'$$47$' 
'$$63$' 
'$$77$' 
'$$21$' 
'1304$' 
'$$32$' 


OR 
OR 
OR 
OR 
OR 
OR 
OR 


IF  SUBSPEC1  IS  '$$42$'  OR  '$$43$' 

OR  '$$91$'  OR  '$$89$'  OR  '$$48$' 

OR  '$$41$'  OR  '$$44$'  OR  '$$61$' 

OR  '$$56$'  OR  '$$54$'  OR  '$$55$' 

OR  '$$81$'  OR  '$$71$'  OR  '$$72$' 

OR  '$$23$'  OR  '$$24$'  OR  '$$28$' 

OR  '1306$'  OR  '1302$'  OR  '$$17$' 

OR  '$$33$'  OR  '$$95$' 

ON  TABLE  HOLD  AS  HOWARD 

END 

DEFINE  FILE  HOWARD 

TRAINING/A7  =IF  COLLEGE1  OMITS 
THEN  'NON-NPS'  ELSE  '  NPS'; 

SSC/A2  =  EDIT(SUBSPEC1,  '$$99$'); 

SFX/A1  =  EDIT(SUBSPEC1,  '$$$$9'); 

CURRICULUM/A38  =  DECODE  SSC 

('42'  'OPERATIONS  ANALYSIS' 
'43'  'OPERATIONAL  LOGISTICS' 
'45'  'COMMAND,  CONTROL  AND  COMMUNICATIONS' 
'76'  'SPACE  SYSTEMSOPERATIONS ' 
'91'  'COMPUTER  SCIENCE' 
'95'  'COMPUTER  SYSTEMS  MANAGEMENT' 
'89'  'INFORMATION  TECHNOLOGY  MANAGEMENT' 
'48'  'METEOROLOGY' 
'47'  'AIR-OCEAN  SCIENCES' 
'49'  ' OCENAOGRAPHY ' 
'44'  'ASW  SYSTEMS' 

'61'  'WEAPONS  SYSTEMS  ENGINEERING' 
'63'  'WEAPONS  SYSTEMS  SCIENCES  (PHYSICS)' 
'67'  'NUCLEAR  PHYSICS  (WEAPONS  AND  EFFECTS) 
'56'  'UNDERWATER  ACOUSTICS' 
'54'  'NAVAL/MECHANICAL  ENGINEERING' 
'55'  'ELECTRONIC  SYSTEMS  ENGINEERING' 
'77'  'SPACE  SYSTEMS  ENGINEERING' 
'46'  'EW  SYSTEMS  ENGINEERING' 
'81'  'COMMUNICATIONS  ENGINEERING' 
'71'  'AERONAUTICAL  ENGINEERING' 
'72'  'AERONAUTICAL  ENGINEERING-AVIONICS' 
'21'  'NSA  -  MIDEAST,  AFRICA,  SOUTH  ASIA' 
'22'  'NSA  -  FAR  EAST,  SE  ASIA,  PACIFIC 
'23'  'NSA  -  WESTERN  HEMISPHERE' 
'24'  'NSA  -  EUROPE,  USSR' 
'28'  'NSA  -  STRATEGIC  PLANNING' 
'04'  'TRANSPORTATION  LOGISTICS  MANAGEMENT' 
'35'  'TRANSPORTATION  MANAGEMENT' 
'06'  'ACQUISITIONS  &  CONTRACT  MANAGEMENT' 
'02'  'SYSTEMS  INVENTORY  MANAGEMENT' 
'17'  'INTELLIGENCE' 
'32'  'MATERIAL  LOGISTICS  SUPPORT  MANAGEMENT1 


'$$76$ 
'$$49$' 
'$$67$' 
'$$46$' 
'$$22$' 
'$$35$' 
'$$31$' 


MONTEREY'  AND  COLLEGE2  OMITS  'MONTEREY' 
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'31'  'FINANCIAL  MANAGEMENT' 

'33'  'MANPOWER,  PERS  &  TRAINING  ANALYSIS') 
END 

TABLE  FILE  HOWARD 

"REPORT  NO:OMFDA2  0R         NAVAL  POSTGRADUATE  SCHOOL 
<+14   PAGE  NO:   <+4  <TABPAGENO>  " 
"PREPARED:   &DATE        US  NAVY  OFFICER  SUBSPECIALTY  INVENTORY" 

(CATEGORIZED  BY  SUBSPECIALTY,  SUFFIC  AND  NPS  ATTENDANCE)" 
COUNT  SUBSPEC1  ACROSS  TRAINING  AND  ROW-TOTAL  AND  COLUMN-TOTAL 
BY  CURRICULUM  UNDER-LINE  NOSPLIT 
BY  SSC  SUBTOTAL 
BY  SFX  AS  'CODE' 
WHERE  SFX  IS  'S'  OR  'R'  OR  'G'  OR  'F'  OR  'P'  OR  'Q'  OR  'N'  OR  'M'  OR  'D' 

OR  'C 
FOOTING 

"SUPSPEC  CODES: " 

"S  =  NO  MS  (EXPER,  NOT  PROVEN)  R  =  NO  MS  (EXPER,  PROVEN)" 
"G  =  LESS  THEN  MS  (NOT  PROVEN)  F  =  LESS  THEN  MS  (PROVEN)  " 
"P  =  MS  (NOT  PROVEN)  Q  =  MS  (PROVEN)" 

"M  =  POST-MS  (NOT  PROVEN)       N  =  POST-MS  (PROVEN)" 
"D  =  DOCTOR  (NOT  PROVEN)        C  =  DOCTOR  (PROVEN)" 
END 
-RUN 
-CMS  XEDIT  OMFDA20R  LISTING  T 
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M.   USEOMF  FOCEXEC 

SET  PASS  =  XXXXXX 
UE  OMFX  FOCUS  A 
END 
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APPENDIX  C:   USERS  GUIDE 

A.  INTRODUCTION 

1.  This  prototype  was  developed  in  response  to  questions 
posed  by  Dean  Elster  regarding  status  of  NPS  Navy  students 
after  graduation.  The  instructions  will  address  using  the 
system  to  update  personnel  information.  The  OMF  system 
resides  on  the  NPS  Computer  Center  mainframe. 

2 .  The  user  needs  basic  knowledge  of  a  CMS  user  account 
and  basic  knowledge  of  FOCUS  (for  TABLETALK) .  Passwords  for 
logging  on  to  the  account  can  be  provided  by  the  Dean  of 
Instruction . 

B.  LOGGING  ON 

1.  There  are  two  CMS  accounts  for  the  OMF  system:  the 
data  base  account  and  the  user  account.  The  data  base  account 
must  be  initiated  as  a  SINK  machine  in  order  to  provide 
simultaneous  updating  of  the  OMF  records. 

2.  Starting  the  SINK  Machine:  The  OMF  resides  on  account 
5010P.  Log  on  to  this  account  and  execute  the  command 
STARTSU.  This  will  make  the  account  active  as  a  SINK  machine 
and  will  log  you  off  automatically. 

3.  Logging  On  as  a  User:  For  this  prototype,  user 
account  5011P  is  provided.  To  initiate  a  session,  type 
STARTFOC.  This  will  put  the  user  in  the  FOCUS  environment  and 
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initiate  his   PROFILE  FOCEXEC  to  provide  the  main  menu 
sessions . 

C.   SYSTEM  MENUS 

1.  A  logo  will  appear  on  the  screen,  'OMF',  press  ENTER 
to  continue.  The  main  menu  provides  the  user  with  maintaining 
and  reporting  from  the  OMF  data  base. 


OMFDA000-1.0   Naval  Postgraduate  School 
OFFICER  MASTER  FILE  SYSTEM 
OMF  Main  Edit  Menu 

1. 

2. 
3. 
4. 
5. 
6. 
T. 

Add  an  Individual  Record 
Modify  Individual  Record 
Delete  Individual  record 
Add  Transfer  Data 
Display/Print  Individual  Records 
Display/Print  Summary  Report 
Report  with  TABLETALK 

X. 

EXIT 

Service  —  >  NV 

OPTION 

}   { 

Figure  1    OMF  Main  Edit  Menu 


2 .   To  add  or  modify  an  existing  record  the  menus  are  the 
same,  the  actions  are  different  (include  /  update). 
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OMFDA10P-1.1    Naval  Postgraduate 

School 

Officer  Master  File 

System 

Add  Screen  1 

Create  an  Officer  master  record  by 

entering  the  following 

data: 

SSN: 

SVC: 

CURRENT  UIC: 

COLLEGE : 

Figure  2   Add/Modify  Screen 


OMFDA10P-1.2    Naval  Postgraduate 

School 

Officer  Master  File 

System 

Add  Screen  2 

SSN: 

NAME  (LAST  FIRST  MIDDLE): 

GENDER  (F/M)  :           ETS  : 

YOS  (1/2/3)  :           PAY  GRADE: 

PROMOTION  STATUS: 

YEAR  GROUP:             DESIGNATOR: 

SELECTION  YEAR:         INCREMENT: 

PROGRAM : 

Figure  3   Add/Modify  Personnel  Data 


OMFDA10P-1.3    Off 

icer  Master 

File  System 

Add  i 

Screen  3 

Please  input  UIC  data. . 

CURRENT 

UIC: 

CURRENT 

BSC: 

Is  this 

a  pay  back 

tour 

or 

bi. 

Llet: 

( l=Yes ; 2=Sch/Trng ; 

3=Unk 

4=No) 

UIC: 

BSC: 

ETS: 

Sponsor 

Name: 

Sponsor 

Address : 

FOLLOWING  tour  of 

duty: 

UIC: 

BSC: 

ETS: 

Is  this 

a  pay  back 

tour 

or 

billet: 

Sponsor 

Name : 

Sponsor 

Address : 

Figure  4  Add/Modify  UIC/BSC  Data 
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OMFDA10P-1.4 

Officer  Master  File 
Add  Screen  4 

System 

Please 
COLLEGE 
Level : 

input  current 
NAME: 

Major: 

graduate  data: 
Year  Completed: 
Specialty: 

Please 
COLLEGE 
Level : 

input  previous 
NAME: 

Major: 

college  data: 
Year  Completed: 
Specialty: 

Figure  5   Add/Modify  Education 

3.   To  delete  a  record  from  the  OMF,  the  following  screen 
requires  entering  the  Navy  officer's  social  security  number. 


0MFDA12P-1.1  Naval  Postgraduate  School 
Officer  Master  File  System 
Delete  Screen 

Delete  an  Officer  Master  record  by  entering  the 
following  data: 
SSN 


Figure  6   OMF  Delete  Menu 

Messages  appear  on  the  bottom  of  the  screen  indicating  actions 
taken:   Record  <SSN>  deleted;  Record  <Name>  Added/Modified. 


D .   REPORTS 

1 .   Two  reports  are  provided  for  selection  on  the  main 
menu  as  Options  5  and  6 .   The  individual  and  summary  report 
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samples  are  provided  at  Appendix  B.  The  TABLETALK  report 
writer  is  window  driven  and  provides  the  user  an  easy  tool  for 
producing  other  reports  as  required.  Knowledge  of  the  FOCUS 
environment  is  helpful.  The  PF3  is  a  quit  key  and  the  TAB  is 
used  to  go  from  line  to  line.  Hitting  ENTER  allows  you  to  see 
the  next  menu . 

E.   LOGGING  OFF 

1.  To  end  the  session  on  the  users  account,  enter  X  to 
exit.   To  log  off  the  CMS  account,  enter  LOG. 

2.  Be  sure  to  bring  down  the  SINK  when  you  are  finished: 
Log  on  to  account  5010P  and  type  STOP  and  press  ENTER,  then 
LOG  off  the  account. 
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